home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / thinkref / archive / THINKPascalUH2.1.sea / THINKPas Univ Hdr 2.1 / Interfaces / OSAComp.p < prev    next >
Text File  |  1995-09-14  |  1KB  |  47 lines
  1. { Converted with MPW2TPas Tuesday, September 12, 1995 8:45:24 PM }
  2. {}
  3. {     File:        OSAComp.p}
  4. { }
  5. {     Contains:    AppleScript Component Implementor's Interfaces.}
  6. { }
  7. {     Version:    Technology:    AppleScript 1.1}
  8. {                 Package:    Universal Interfaces 2.1 in “MPW Latest” on ETO #18}
  9. { }
  10. {     Copyright:    © 1984-1995 by Apple Computer, Inc.}
  11. {                 All rights reserved.}
  12. { }
  13. {     Bugs?:        If you find a problem with this file, use the Apple Bug Reporter}
  14. {                 stack.  Include the file and version information (from above)}
  15. {                 in the problem description and send to:}
  16. {                     Internet:    apple.bugs@applelink.apple.com}
  17. {                     AppleLink:    APPLE.BUGS}
  18. { }
  19. {}
  20.  
  21. unit OSAComp;
  22. interface
  23.  
  24.  
  25. {$IFC UNDEFINED __OSACOMP__}
  26. {$SETC __OSACOMP__ := 1}
  27.  
  28.     uses
  29.         ConditionalMacros, Types, AppleTalk, Processes, PPCToolbox, Notification, EPPC, Files, Aliases, AppleEvents, Errors, Components, OSA;
  30.  
  31. { $PUSH}
  32. { $ALIGN MAC68K}
  33. { $LibExport+}
  34.  
  35.     function OSAGetStorageType (scriptData: Handle; var dscType: DescType): OSErr;
  36.     function OSAAddStorageType (scriptData: Handle; dscType: DescType): OSErr;
  37.     function OSARemoveStorageType (scriptData: Handle): OSErr;
  38.  
  39. { $ALIGN RESET}
  40. { $POP}
  41.  
  42. {$ENDC}
  43.  {__OSACOMP__}
  44.  
  45. implementation
  46. end.
  47.